Shareware Grab Bag/Shareware Grab Bag.iso/003/db3ar.arc/CREDIT.PRG

Text File | 1985-10-16 | 2.5 KB | 118 lines

********************** ENTER CREDIT MEMOS.(CREDIT.PRG)
CLEAR
SET CONFIRM ON
SET EXACT ON
DO WHILE .T.
@ 2,0 CLEAR
@ 3,25 SAY 'Do you want to enter a credit? '
?
?
STORE ' ' TO PERMIT
WAIT '                                     ? 'TO PERMIT
IF PERMIT<>'Y'
RETURN
ENDIF
STORE 0.00 TO MUCR,MCR
USE B:INV
@ 2,0 CLEAR
@ 3,15 SAY 'Do you want to apply to a particular invoice?  '
?
?
STORE ' ' TO ANSWER
WAIT '                                    ?  'TO ANSWER
IF ANSWER='Y'
@ 2,0 CLEAR
ACCEPT "               Enter invoice number to apply credit to  " TO X
@ 2,0 CLEAR
@ 23,28 SAY 'Just a minute'
LOCATE FOR INVNO=X
IF EOF()
@ 2,0 CLEAR
? CHR(7)
@ 6,20 SAY "I can't find an invoice # &X... "
STORE 1 TO XX
DO WHILE XX<70
STORE XX+1 TO XX
ENDDO WHILE XX<70
@ 2,0 CLEAR
LOOP
ENDIF EOF()
SET CONFIRM ON
IF NET=0.00
?
? CHR(7)
?
CLEA
@ 1,15 SAY 'PAID!-------*-------PAID!----ENTER FULL AMT OF ì
INVOICE AGAIN'
ENDIF
@ 2,0 CLEAR
@ 4,15 SAY '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
@ 6,25 SAY 'Account number:'
@ 6,44 SAY ACCT
@ 7,25 SAY 'Date of invoice:'
@ 7,41 SAY NEWDATE
@ 8,25 SAY 'Invoice #:'
@ 8,36 SAY INVNO
@ 9,25 SAY 'P.O.#:'
@ 9,35 SAY PONO
@ 10,25 SAY 'Amount:'
@ 10,38 SAY PRICE
@ 11,25 SAY 'Credits:'
@ 11,38 SAY CRINV
@ 12,25 SAY 'Payments:'
@ 12,38 SAY AMTAPPL
@ 13,25 SAY 'Net Due:'
@ 13,38 SAY NET
@ 15,15 SAY '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
@ 17,25 SAY 'Enter amount of credit' GET MCR
READ
SET CONFIRM OFF
REPLACE NET WITH PRICE - MCR
REPLACE CRINV WITH MCR
IF NET=0.00
REPLACE PAID WITH .T.
REPLACE PAYDATE WITH DATE()
ENDIF
LOOP
ENDIF ANSWER='Y'
IF ANSWER='N'
USE B:CUST
@ 2,0 CLEAR
?
?
?
?
ACCEPT '          This is an unapplied credit,please enter account number   ì
' TO Z
*!! EOF() will be true if NO FIND, and RECNO() will equal BOTTOM, not 0.
LOCATE FOR ACCT=Z
IF BOF()
@ 2,0 CLEAR
@ 6,60 SAY CHR(7)
@ 6,20 SAY "I can't find an account for # &Z "
STORE 1 TO XX
DO WHILE XX<70
STORE XX+1 TO XX
ENDDO WHILE XX<70
LOOP
ENDIF BOF()
@ 2,0 CLEAR
@ 5,15 SAY '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
@ 7,15 SAY 'Account number:'
@ 7,31 SAY ACCT
@ 8,15 SAY NAME
@ 9,15 SAY ADDRESS
@ 10,15 SAY TRIM(CITY)+' '+TRIM(STATE)+' '+TRIM(ZIP)
@ 11,15 SAY 'Outstanding unapplied credits:'
@ 11,46 SAY UCREDIT
@ 13,15 SAY '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
@ 15,15 SAY 'Enter amount of unapplied credit' GET MUCR
READ
REPLACE UCREDIT WITH MUCR+UCREDIT
LOOP
ENDIF ANSWER='N'
ENDIF PERMIT='Y'
RETURN
SET EXACT OFF